home *** CD-ROM | disk | FTP | other *** search
/ Digital News 2 / Digital_News_2_1988_-_de_Side_B.d64 / special load < prev    next >
Encoding:
Text File  |  1988-01-01  |  774 b   |  77 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6. ;special load (auch unter $d000)
  7. ;           (w) by mws
  8.  
  9.  
  10. ;in $ae/$af = anfangsadresse
  11.  
  12.  
  13.  
  14. slo      = $ae
  15. shi      = $af
  16.  
  17.  
  18.  
  19.  
  20.  
  21.          lda #$08
  22.          tax
  23.          tay
  24.          jsr $ffba
  25.  
  26.          lda #$01
  27.          ldx #<nam
  28.          ldy #>nam
  29.          jsr $ffbd
  30.  
  31.          jsr $ffc0
  32.  
  33.  
  34.          lda #$08
  35.          jsr $ffb4
  36.  
  37.          lda #$68
  38.          jsr $ff96
  39.  
  40.          jsr $ffa5
  41.          sta slo
  42.          jsr $ffa5
  43.          sta shi
  44.  
  45.  
  46. ok       jsr $ffa5
  47.  
  48.          bit $90
  49.          bvs ende
  50.  
  51.          ldy #$00
  52.          sei
  53.          sty $01
  54.          sta (slo),y
  55.          dey
  56.          sty $01
  57.          cli
  58.  
  59.  
  60.  
  61.  
  62.          inc slo
  63.          bne ok
  64.  
  65.          inc shi
  66.  
  67. kkb      bne ok
  68.  
  69. ende     jsr $ffc3
  70.          jsr $ffe7
  71.          jsr $f642
  72.          rts
  73.  
  74.  
  75. nam      .text "a"
  76.  
  77.